﻿Public Class prueba
    Private Rh As New cDatos_Fijos
    Private resultado As DataSet
    Private Sub prueba_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'lstTipoSangre.DataSource = Rh.Cargar
        resultado = Rh.Cargar("Rh")
        Data.DataSource = resultado.Tables(0).DefaultView
        cboLista.DataSource = resultado.Tables(0)
        cboLista.DisplayMember = "descripcion_contextura"
        cboLista.ValueMember = "codigo_contextura"
    End Sub

    Private Sub cboLista_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboLista.SelectedIndexChanged
        'txtCodigo.Text = cboLista.SelectedValue
    End Sub
End Class